﻿<%
'connstr = "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data.mdb")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("data.mdb")
%>
<!-- #include file=jsonclass.asp -->
<%
Session.CodePage=65001
userId=request("userId")

set rs= server.createobject("adodb.recordset")
sqlstr = "select * from userInfo where userId='"&userId&"'"
rs.open sqlstr,connstr,1,1
userstr = "{"
if rs.RecordCount <> 0 then
	userstr = userstr & "num:1,userId:'"&rs("userId")&"',username:'"&rs("username")&"',token:'"&rs("token")&"'"
else
	userstr = userstr & "num:0"
end if
userstr = userstr & "}"
response.Write(userstr)
%>